home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aak.d64 / fr_puer nobis (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  708b  |  25 lines
  1. 1 IFSW=1GOTO3
  2. 2 SW=1:LOAD"E/F PN SM",8,1
  3. 3 L=2:H=157
  4. 4 POKE55,L:POKE56,H:POKE598,76:POKE599,L:POKE600,H:CLR
  5. 5 LC=646:POKE53272,21
  6. 10 POKE53281,1:POKELC,2:PRINT"[147]":PRINT"PUER NOBIS NASCITUR (CANON)
  7. 15 [151]LC,3:[153][163]10)"PUER NOBIS NASCITUR
  8. 16 POKELC,4:PRINTTAB(10)"RECTOR ANGELORUM.
  9. 17 [151]LC,5:[153][163]10)"IN HOC MUNDO PASCITUR
  10. 18 POKELC,6:PRINTTAB(10)"DOMINUS DOMINORUM.
  11. 20 [158]598
  12. 21 [139][194](788)[179][177]49[167]21
  13. 22 [129]AA[178]1[164]2000:[130]
  14. 30 [151]53272,23:[153]"LOAD":[153][163]15)"(null)EPETER - (null)
  15. 35 PRINT"[208]OUR VOIR UNE [201]MAGE - [204]A [211]TE-[198]AMILLE
  16. 40 [153][163]15)"(null)OUCHEZ (null)
  17. 45 PRINTTAB(8)"[197]T POUR CONTINUER APRES:":PRINTTAB(8)"[206]'IMPORTE QUELLE TOUCHE
  18. 50 [153][163]11)"(null)UITTER    -    (null)WAIT
  19. 60 POKE198,0
  20. 70 GETA$:IFA$=""THEN70
  21. 80 IFA$="Q"THENEND
  22. 90 IFA$="P"THENCLR:PRINTCHR$(5):LOAD"F/PCLD",8
  23. 95 IFA$="R"THEN5
  24. 100 IFA$<>"Q"ORA$<>"P"ORA$<>"R"THEN70
  25.